Radix For Finance

Takingthe radix packagefor a test spin for finacial reporting

load libraries

library(tidyverse)
library(tidyquant)
library(timetk)
library(plotly)
library(rmarkdown)

get financial data

FANG <- c("FB", "AMZN", "NFLX", "GOOG") %>% 
  tq_get(from = "2014-04-01", to = today())

print interactive Table of Monthly Returns

cummulative_tbl <- FANG %>% 
  mutate(symbol = as_factor(symbol)) %>% 
  group_by(symbol) %>% 
  mutate(returns = adjusted - lag(adjusted)) %>% 
  mutate(returns = replace_na(returns, 0)) %>% 
  mutate(cummulative_returns = cumsum(returns))

cummulative_tbl %>% 
  select(symbol, date, adjusted, cummulative_returns) %>% 
  paged_table()

plot interactive financial chart

FANG Share Price